SG9_standardXWalk<-read_excel("data/NextGenMCASItemxWalk.xlsx", sheet ="HS_Phys_StandardxWalk")IT301_test<-read_excel("data/2023_Physics_IT301 MCAS District and School Test Item Analysis Summary.xlsx", skip =14)IT301_test
Code
IT301_2022<-read_IT301("data/2022_Physics_IT301 MCAS District and School Test Item Analysis Summary.xlsx", 2022, "PHY" )IT301_2022
Code
IT301_2023<-read_IT301("data/2023_Physics_IT301 MCAS District and School Test Item Analysis Summary.xlsx", 2023, "PHY" )IT301_2023
Code
NextGenIT301<-rbind(IT301_2022, IT301_2023)HSPhy_NextGenIT301<-NextGenIT301%>%left_join(SG9_standardXWalk, by ="Standard")HSPhy_NextGenIT301
Join IT301 reports to SchoolItem performance Reports
Code
HSPhy_NextGen_SchoolIT301DF <-left_join(HSPhy_NextGen_SchoolItemDF, HSPhy_NextGenIT301, by =c("Year"="Year", "Subject"="Subject", "ITEM"="ITEM"))HSPhy_NextGen_SchoolIT301DF
Compute Key Summary Stats for IT301 Reports
Code
## Compute % Earned by Practice Category## Compute State % Earned by Practice Category## Compute SD by Practice Category## Compute State % Earned by Reporting Category## Compute SD by Reporting CategoryPractice_Cat_Sum <- HSPhy_NextGen_SchoolIT301DF%>%group_by(`Practice Category`)%>%summarise(`Mean Diff`=mean(`School-State Diff`),`Med Diff`=median(`School-State Diff`),`SD Diff`=sd(`School-State Diff`))Practice_Cat_Sum